home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 80 / 080.d81 / route 66 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  227 lines
  1. 1 poke51,0:poke52,78:poke55,0:poke56,78:clr:a$="":poke2,255:goto50
  2. 2 zz=0
  3. 3 geta$
  4. 4 ifa$<>"+"then7
  5. 5 e=e+1:ife>2thene=0
  6. 6 gosub20
  7. 7 ifa$="[145]"ora$=""thendl=dl-1:pokev,122-dl:ifdl<1thendl=1
  8. 8 ifa$=""ora$="[157]"thendl=dl+1:pokev,122-dl:ifdl>34thendl=34
  9. 9 ifapthengosub30
  10. 10 ifa$="q"thensys52225:gosub800
  11. 11 ifa$<>"r"then15
  12. 12 ra=ra+1:ifra>3thenra=0
  13. 13 ifra=0thensys52225:goto17
  14. 14 sys52222,256*(72+ra*6)
  15. 15 if(peek(2)=255)and(ra)then14
  16. 17 zz=zz+1:ifzz<dl*4then3
  17. 19 return
  18. 20 sys51459:poke251,w%(e):poke252,160:poke253,140
  19. 21 poke53265,peek(53265)and239:sys51456:fort=1to500:next
  20. 22 poke53265,peek(53265)or16
  21. 23 poke252,160:poke253,140:sys51459:o=1
  22. 24 return
  23. 30 gg=gg+1:ifgg>255thengg=0:pokev+16,6
  24. 31 if(peek(v+16))andgg>80thengg=0:pokev+16,0:ap=0
  25. 32 ifgg>200thenpokev+27,1
  26. 33 ifgg<200thenpokev+27,6
  27. 34 pokev+2,gg:pokev+4,gg
  28. 35 return
  29. 50 dimb$(20,6),c$(30),w%(4),er%(4),mi$(3),sx$(3),es$(3),u%(20),uu%(20)
  30. 51 fori=0to24:poke54272+i,0:next
  31. 52 v=53248:pokev+21,0:gosub1000
  32. 54 sys57812"unpacker.89",8,0:poke780,0:poke781,0:poke782,201:sys65493
  33. 55 sys57812"scripter $c400",8,0:poke780,0:poke781,0:poke782,196:sys65493
  34. 56 sys57812"mo.shp",8,0:poke780,0:poke781,0:poke782,100:sys65493
  35. 57 sys57812"nm.shp",8,0:poke780,0:poke781,0:poke782,110:sys65493
  36. 58 sys57812"ca.shp",8,0:poke780,0:poke781,0:poke782,120:sys65493
  37. 62 sys57812"spr",8,0:poke780,0:poke781,0:poke782,132:sys65493
  38. 70 sys57812"input any.o",8,0:poke780,0:poke781,60:poke782,3:sys65493
  39. 72 sys57812"basic player.o",8,0:poke780,0:poke781,254:poke782,203:sys65493
  40. 74 sys57812"woogie",8,0:poke780,0:poke781,0:poke782,78:sys65493:poke78*256+2,40
  41. 76 sys57812"fingers",8,0:poke780,0:poke781,0:poke782,84:sys65493:poke84*256+2,50
  42. 77 sys57812"riff",8,0:poke780,0:poke781,0:poke782,90:sys65493:poke90*256+2,35
  43. 78 sys57812"w.1",8,0:poke780,0:poke781,104:poke782,207:sys65493
  44. 80 open8,8,8,"cities,p,r"
  45. 81 get#8,a$,a$
  46. 82 j=0:fori=0to1:sys828,8,40:i=st:c$(j)=a$+cr$:j=j+1:next:close8:g=j-1
  47. 90 open8,8,8,"shave signs,p,r"
  48. 91 get#8,a$,a$
  49. 92 j=0:fori=0to1:fork=0to5:sys828,8,40:i=st:b$(j,k)=a$+cr$:next:j=j+1:next
  50. 94 close8
  51. 95 d$(1)="only 987 miles to"+cr$
  52. 97 d$(2)="don't miss"+cr$
  53. 98 d$(3)="458 miles ahead"+cr$
  54. 100 d$(4)="what is it? it's"+cr$
  55. 101 d$(5)="only 134 miles to"+cr$
  56. 103 d$(6)="you just passed"+cr$
  57. 104 sys57812"route font",8,0:poke780,0:poke781,0:poke782,192:sys65493
  58. 105 cr$=chr$(13)
  59. 106 bs$="[192][193][199][157][157][157][157][157][157][157][161][162][163][164][165][166][167][168][169][170][171][172][157][157][157][157][157][157][157][157][157][157][157][157][173][174][175][176][177][178][179][180][181][182][183][184]"+cr$
  60. 108 er$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  61. 109 er$=er$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][157][157][157][157][157][157][157][157][157][157][160][157][160][157][160]"+cr$
  62. 110 sx$="[194][195][196][197][198][157][157][157][157][157][200][201][202][203][204][157][157][157][157][157][205][206][207][208][209][157][157][157][144]^[157]^[157]^[157]_"+cr$:rem 66
  63. 111 ci$="[210][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][212][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][213]                 [214][157][157][157][157][157][157][157][157][157][157]"
  64. 112 ci$=ci$+"[157][157][157][157][157][157][157][157][157][215][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][217][157][157][157][157][157][157][157][157][157][157][144]^[157]^[157]_"+cr$
  65. 113 pl$="                   [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]                   [157][157][157][157][157]"
  66. 114 pl$=pl$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157]                   [157][157][157][157][157][157][157][157][157][157][144]^[157]^[157]_"+cr$
  67. 115 mi$(0)="[218][157][144][221]"+cr$:er$(0)=" [157] "+cr$:rem sgn 0
  68. 116 mi$(1)="[219][220][157][144][223]"+cr$:er$(1)="  [157][157]  "+cr$:rem sgn 1
  69. 117 mi$(2)="[160]]][160][157][157][157][144][189][213][157][157][189][213]"+cr$:er$(2)="    [157][157][157]  [157][157]  "+cr$
  70. 118 es$="[160][160][160][160][160][157][157][157][157][157][160][160][160][160][160][157][157][157][157][157][160][160][160][160][160][157][157][157][160][157][160][157][160][157] "+cr$
  71. 120 sx$(0)="[185][157][144][186]"+cr$:es$(0)="[160][157][160]"+cr$
  72. 121 sx$(1)="[187][157][144][188]"+cr$:es$(1)="[160][157] "+cr$
  73. 122 sx$(2)="#$[157][157]%&[157][157][144][189][213][157][157][189][213]"+cr$:es$(2)="  [157][157]  [157][157]  [157][157]  "+cr$
  74. 124 er%(0)=30:rem grn
  75. 125 er%(1)=149:rem brn
  76. 126 er%(2)=129:rem ora
  77. 132 fori=0to2:readw%(i):next:rem scrns
  78. 133 data100,110,120
  79. 135 fori=0to2:readxs(i),ys(i),xc(i),yc(i):next:rem sign x and y
  80. 137 data17,10,17,10,19,11,18,11,25,12,22,12
  81. 140 x=rnd(-ti)
  82. 172 pokev+39,0:pokev+40,11:pokev+41,1
  83. 173 pokev+3,80:pokev+5,80:pokev+27,6
  84. 174 pokev+29,0:pokev+23,0:pokev+16,0
  85. 178 fori=0to2:poke36856+i,16+i:next:rem bank 2 sp pointers
  86. 180 pokev,112:pokev+1,235:print"[147]"
  87. 190 poke53272,31:sys50176,160,140,192
  88. 210 e=0:dl=10:gg=30:dd=0:pokev,112
  89. 220 print"[147]"
  90. 270 poke251,w%(e):poke252,160:poke253,140:sys51456
  91. 280 poke252,160:poke253,140:sys51459:o=1
  92. 290 pokev+21,7
  93. 295 ifrathensys52222,256*(72+ra*6)
  94. 300 fork=0tog
  95. 303 n=0:ifk<17andk>4thenif(k/2)=int(k/2)thendd=dd+1:gosub380
  96. 305 ifk=7ork=13thenn=1:gosub380:gosub5
  97. 307 ifk=2ork=9ork=14thenap=1
  98. 310 ford=0to2
  99. 320 f=0:ond+1goto330,360,400
  100. 327 :
  101. 328 :rem  66 sign
  102. 329 :
  103. 330 iff=2thensys50182,xs(f),ys(f),"[155][151]#$[157][157]%&[157][157]"+chr$(er%(e))+"[144][189][213][157][157][189][213]"+cr$
  104. 331 iff<2thensys50182,xs(f),ys(f),""+chr$(er%(e))+"[155]"+sx$(f)
  105. 332 gosub2
  106. 333 sys50182,xs(f),ys(f),chr$(er%(e))+es$(f)
  107. 334 f=f+1:iff<3then330
  108. 335 sys50182,30,11,"[155][151][194][195][196][197][198][157][157][157][157][157][200][201][202][203][204][157][157][157][157][157][205][206][207][208][209][157][157][157]"+chr$(er%(e))
  109. 336 sys50179,"[144]^[157]^[157]^[157]_"+cr$
  110. 337 gosub2
  111. 338 sys50182,30,11,chr$(er%(e))+es$
  112. 339 goto430
  113. 340 :
  114. 341 :rem  thing signs
  115. 342 :
  116. 343 f=0
  117. 344 sys50182,xc(f),yc(f),""+chr$(er%(e))+""+chr$(h%(n))+mi$(f)
  118. 345 gosub2
  119. 346 sys50182,xc(f),yc(f),chr$(er%(e))+er$(f)
  120. 347 f=f+1:iff<3then344
  121. 348 sys50182,20,11,""+chr$(h%(n))+"[144][210][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][212][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  122. 349 sys50179,"[213]                 [214][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][215][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][217]"
  123. 350 sys50179,"[157][157][157][157][157][157][157][157][157][157]"+chr$(er%(e))+"[144]^[157]^[157]_"+cr$
  124. 351 sys50182,24,12,""+chr$(h%(n))+"[144]tunnel ahead"
  125. 352 gosub2
  126. 353 sys50182,20,11,chr$(er%(e))+er$
  127. 354 return
  128. 357 :
  129. 358 :rem  cities sign
  130. 359 :
  131. 360 sys50182,xc(f),yc(f),""+chr$(er%(e))+"[155]"+mi$(f)
  132. 362 gosub2
  133. 364 sys50182,xc(f),yc(f),chr$(er%(e))+er$(f)
  134. 366 f=f+1:iff<3then360
  135. 367 sys50182,20,11,"[155][151][210][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][212][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  136. 368 sys50179,"[213]                 [214][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][215][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][217]"
  137. 369 sys50179,"[157][157][157][157][157][157][157][157][157][157]"+chr$(er%(e))+"[144]^[157]^[157]_"+cr$
  138. 370 sys50182,30-len(c$(k))/2,12,"[155][144]"+c$(k)
  139. 372 gosub2
  140. 374 sys50182,20,11,chr$(er%(e))+er$
  141. 376 goto430
  142. 377